home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H055.ZIP / CPY / MVS.CPY < prev   
Text File  |  1987-06-06  |  5KB  |  172 lines
  1. *********************************************************************
  2. *
  3. * MVS.DOC - PC/370 RELEASE 2 MVS.ALC SHELL SVC LABELS/DOCUMENTATION
  4. *
  5. *********************************************************************
  6. *
  7. * MVS.ALC IS A SUBROUTINE WHICH CAN BE CALLED BY ANY PC/370 MAIN
  8. * PROGRAM RUNNING IN SUPERVISOR STATE (THE DEFAULT AT STARTUP).
  9. * MVS.ALC ESTABLISHES SVC, PROGRAM, AND EXTERNAL INTERRUPT HANDLERS
  10. * TO EMULATE AN IBM MVS/XA OPERATING SYSTEM ENVIRONMENT AND RETURNS
  11. * TO THE CALLING PROGRAM IN PROBLEM STATE MODE.  FROM THAT POINT ON
  12. * IN THE PC/370 PROGRAM EXECUTION, ALL SVC CALLS AND PROGRAM CHECK
  13. * INTERRUPTIONS WILL BE HANDLED BY MVS.ALC.  THE LABELS OF THE COMMON
  14. * MVS SVCS FOLLOW WITH DOCUMENTATION ON HOW SELECTED SVC'S HAVE BEEN
  15. * IMPLEMENTED IN THE CURRENT VERSION OF MVS.ALC.
  16. *
  17. * MVS SUPPORTS RESIDENT AND DYNAMICALLY LOADED SVCS.  ALL SVCS ARE
  18. * NAMED IGC0NNN WHERE NNN IS THE DECIMAL SVC NUMBER 000-255.  IF THE
  19. * SVC TABLE DOES NOT HAVE SVC ENTRY ADDRESS IN IT WHEN ACCESSED, MVS
  20. * WILL ATTEMP TO LOAD IGC0NNN.MOD AND STORE ADDRESS FOR FUTURE USE.
  21. * IF LOAD FAILS, 106 ABEND PROCESSING IS INVOKED.
  22. *
  23. * MVS SUPPORTS RESIDENT AND DYNAMICALLY LOADED MACRO INS.  ALL INS ARE
  24. * NAMED INS0NNN WHERE NNN IS THE DECIMAL INS NUMBER 000-255.  IF THE
  25. * INS TABLE DOES NOT HAVE INS ENTRY ADDRESS IN IT WHEN ACCESSED, MVS
  26. * WILL ATTEMP TO LOAD INS0NNN.MOD AND STORE ADDRESS FOR FUTURE USE.
  27. * IF LOAD FAILS, 106 ABEND PROCESSING IS INVOKED.  THIS IS NOT A STANDARD
  28. * MVS/XA OFFERING BUT IS USEFUL FOR SIMULATING SELECTED 370 SUPR. INSTR.
  29. * SUCH AS THE SIO SAMPLE WHICH IMPLEMENTS CCW CHANNEL SIMULATION I/O
  30. * TO/FROM CONSOLE VIA SIO X'01F'.
  31. *
  32. *********************************************************************
  33. MVSSVCS  DSECT    TYPE/REGS/DESCRIPTION
  34. EXCP     EQU   0
  35. XDAP     EQU   0
  36. WAIT     EQU   1
  37. WAITR    EQU   1
  38. PRTOV    EQU   1
  39. POST     EQU   2
  40. EXIT     EQU   3   T1 (NO REGS - EXIT MVS TO PC/370 SUPR. STATE)
  41. GETMAIN  EQU   4
  42. FREEMAIN EQU   5
  43. LINK     EQU   6
  44. XCTL     EQU   7
  45. LOAD     EQU   8
  46. DELETE   EQU   9
  47. GMAINR   EQU   10  T1 R0 = SPL,LENGTH, R1=NEG. GMAIN
  48. FMAINR   EQU   10  T1 R0 = SPL,LENGTH, R1=POS. FMAIN ADDRESS
  49. TIME     EQU   11  T1 R0 = TIME, R1 = FORMAT CODE IN LOW 4 BITS
  50. SYNCH    EQU   12
  51. ABEND    EQU   13  T1/T4 R1 = COMPLETION CODE (DUMP OPT. INVOKES T4)
  52. SPIE     EQU   14
  53. ERREXCP  EQU   15
  54. PURGE    EQU   16
  55. RESTORE  EQU   17
  56. BLDL     EQU   18
  57. FIND     EQU   18
  58. OPEN     EQU   19
  59. CLOSE    EQU   20
  60. STOW     EQU   21
  61. OPENJ    EQU   22
  62. CLOSEJ   EQU   23
  63. DEVTYPE  EQU   24
  64. TRKBAL   EQU   25
  65. CATALOG  EQU   26
  66. INDEX    EQU   26
  67. LOCATE   EQU   26
  68. OBTAIN   EQU   27
  69. SCRATCH  EQU   29
  70. RENAME   EQU   30
  71. FEOV     EQU   31
  72. ALLOC    EQU   32
  73. IOHALT   EQU   33
  74. MGCR     EQU   34
  75. QEDIT    EQU   34
  76. WTO      EQU   35  T1 R1 = AL2(L'MSG,0),C'MSG'
  77. WTOR     EQU   35  T1 R1 = AL1(L'REPLY),AL3(REPLY),AL2(L'MSG,0),C'MSG'
  78. WTL      EQU   36
  79. SEGLD    EQU   37
  80. SEGWT    EQU   37
  81. LABEL    EQU   39
  82. EXTRACT  EQU   40
  83. IDENTIFY EQU   41
  84. ATTACH   EQU   42
  85. CIRB     EQU   43
  86. CHAP     EQU   44
  87. OVLYBRCH EQU   45
  88. TIMER    EQU   46
  89. STIMER   EQU   47
  90. DEQ      EQU   48
  91. SNAP     EQU   51
  92. SDUMP    EQU   51
  93. RESTART  EQU   52
  94. RELEX    EQU   53
  95. DISABLE  EQU   54
  96. EOV      EQU   55
  97. ENQ      EQU   56
  98. RESERVE  EQU   56
  99. FREEBUF  EQU   57
  100. REFBUF   EQU   58
  101. REQBUF   EQU   58
  102. OLTEP    EQU   59
  103. STAE     EQU   60
  104. STAI     EQU   60
  105. ESTAE    EQU   60
  106. ESTAI    EQU   60
  107. IKJEGS6A EQU   61
  108. DETACH   EQU   62
  109. CHKPT    EQU   63
  110. RDJFCB   EQU   64
  111. BTAMTEST EQU   66
  112. SYNADAF  EQU   68
  113. SYNADRLS EQU   68
  114. BSP      EQU   69
  115. GSERV    EQU   70
  116. ASGNBFR  EQU   71
  117. BUFINQ   EQU   71
  118. RLSBFR   EQU   71
  119. SPAR     EQU   73
  120. DAR      EQU   74
  121. DQUEUE   EQU   75
  122. IFBSTAT  EQU   76
  123. LSPACE   EQU   78
  124. STATUS   EQU   79
  125. SETPRT   EQU   81
  126. DASDR    EQU   82
  127. SMFWTM   EQU   83
  128. GRAPHICS EQU   84
  129. DDRSWAP  EQU   85
  130. ATLAS    EQU   86
  131. DOM      EQU   87
  132. MOD88    EQU   88
  133. VOLSTAT  EQU   91
  134. TCPEXEC  EQU   92
  135. TGET     EQU   93
  136. TPUT     EQU   93
  137. SYSEVENT EQU   95
  138. STAX     EQU   96
  139. IKJEGSSG EQU   97
  140. PROTECT  EQU   98
  141. DYNALLOC EQU   99
  142. IKJEFFIB EQU   100
  143. QTIP     EQU   101
  144. AQCTL    EQU   102
  145. XLATE    EQU   103
  146. TOPCTL   EQU   104
  147. IMGLIB   EQU   105
  148. MODSET   EQU   107
  149. PGRLSE   EQU   112
  150. PGFIX    EQU   113
  151. PGFREE   EQU   113
  152. PGLOAD   EQU   113
  153. PGOUT    EQU   113
  154. EXCPVR   EQU   114
  155. DEBCHK   EQU   117
  156. TESTAUTH EQU   119
  157. GETMAIN2 EQU   120
  158. FREMAIN2 EQU   120
  159. VSAM     EQU   121
  160. PURGEDQ  EQU   123
  161. TPIO     EQU   124
  162. EVENTS   EQU   125
  163. MSSUCB   EQU   126
  164. RACHECK  EQU   130
  165. RACINIT  EQU   131
  166. RACLIST  EQU   132
  167. RACDEF   EQU   133
  168. *********************************************************************
  169. * END OF MVS.DOC
  170. *********************************************************************
  171.  
  172.